<%option explicit%>
<%

Dim sPathArchivo, sArchivo, TimeOutUpload

TimeOutUpload = Server.ScriptTimeout 
Server.ScriptTimeout  = 1440

sPathArchivo =  unescape(request("sPathArchivo"))

sArchivo = unescape(request("sArchivo"))
sPathArchivo = replace((unescape(Session("sPathProyecto") ) & "Proyectos" & sPathArchivo),"/","\")
'Response.Write replace((Session("sPathProyecto")& "Proyectos" & sPathArchivo),"/","\")
'Response.Write "<br>" & "-------" & "<br>"
'Response.Write server.mappath(sPathArchivo)
'Response.Write "<br>" & "-------" & "<br>"
'Response.Write sArchivo
'Response.Write "<br>" & "-------" & "<br>"
'Response.Write sPaginaSaveAs  
'Response.end


call downloadfile(sPathArchivo, sArchivo)

Sub downloadfile(sArchivo, sArchivoSaveAs)

	Dim txt, objStream 

	Response.ContentType = "application/x-msdownload"
	Response.AddHeader "Content-transfer-encoding", "binary"
	Response.AddHeader "Content-Disposition", "attachment;filename=" & sArchivoSaveAs
	'Response.AddHeader "Content-Disposition", "attachment;filename=rpe.zip"
	
	'sArchivo=server.mappath(sArchivo)
	
	
	Set objStream = Server.CreateObject("ADODB.Stream")
	
	objStream.Mode = 3
	objStream.open
	objStream.loadfromfile sArchivo
	'objStream.loadfromfile "E:\Aplicaciones\Sitios\sigindesa\Proyectos\Documentos\578\TorrentSearch.v3.5.3001.zip"

	txt = objStream.readtext(-1)
	response.binarywrite(txt)
	
	objStream.close
	set objStream=nothing
	txt=null

End Sub

Server.ScriptTimeout = TimeOutUpload
%>
<html>
<body>
</body>
</html>